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الاسم الكامل ٠‏ عادل لعوبي / الشترة 

العنوان : حي الصومام عين الحجل المسيلة / الجزائر 
الهاتف :08 03 88 0790 

البريد الالكتروني :صyaho0.co@ laoubi_ade]‏ 
الدبلوم: تقني سامي في الإعلام الآلي للتسيير 
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إهداء : 


إلى آهل حجيلة و المعاضيد والى أولاد جدي 


إهداء اس بو غرارۀ الصديق 
إهداء خاص إلى صاحبة الرداء الأحمر 
لمسات برمجية 


تقديم : بعد التحية والسلام إخوتي الأعزاء بعد أن سبق وان طرحت كتابي في دلفي أردت 
أن أواصل طريقي في مجال البرمجة بدلفي . بتقديم بعضا من اللمسات البرمجية في دلفي 
محاولا تجسيدها في هذه الوريقات المعدودة 


الكتاب موجه لمن لهم نظرة برمجية مسبقة-عن دلفي 


الكاتب :لوبي عادل 
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تمهيد : سأحاول إعطاء صور تنسيقية لتصميم البرامج بدلفي حسب وجهة نظري , حيث 
تكون هذه الوجهة مميزة بصورة ترفيهية ونموذجية ذات طابع صارم . 


برامج التسيير : غالبا ما يلزم الطالب أثناء انهاء دراسته الجامعية باعداد مذكرة تخر ج ودائما 
ما تكون هذه المذكرة مصحوبة وجوبا بتطبيق ميداني للمذكرة مثل ما هو معروف في ميدان 
الإعلام الآلي على سبيل المثال ..لكن عند تطرق المقبل على التخرج إلى آلية تصميم 
البرنامج الموافق للمذكرة يواجه عدة مشاكل من بينها آلية تصميم البرنامج واللمسات 

لا أتحدث عن التلوين أو الجانب ألز خرفي بقدر الجاني التقني أي سلاسة العمل وسهولة 
استخدام البرنامج بالإضافة إلى آفعالية البرتامج: 
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ويقصد هنا بجعل البرنامج مده حياة معينة مقبدة يعلد مرات 1 أتنفيد أى أن جعا 
مستغل البرنامج بحاجة دائمة إليك . 


آلية العمل: هناك عدة طرق لتدعيم البرنامج بها 
*الطر يقة الأولى /استعمال التاريخ ٠‏ 
ويتم هنا بمراقبة تاريخ النظام بتاريخ نهاية مدة حياة البرنامج إليك المثال التالي الذي من 
خلاله يتم توضيح الفكرة أكثر: 
a Eg E‏ 
2 قم بإاحضار المرکبة ۲1ع 1) من شريط المركبات صإعاكرو 
3 قم بإحضار المركبة 11عطه!ا 
4 حرر الكود التالي بعد النقر المزدوج على المركبة 1إعص1) 
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لمسات برمجية عادل 


bheqJIn 

labþeEll.Ccaption:=dfatetostr [date] ; 

if labeEll.caption='U4flzfZ2U1U0' then 
hejin 
2zahoumezszage [' application TteErminer '}; 
klose; 

end; 

end; 


تقوم المركبة 1ص بمراقبة الشرط كل تانية ويتم تحقق الشرط في حالة مساواة 
تاريخ الجهاز مع التاريخ المحدد في البنية الشرطية ۴¡ 
cC a‏ 


laouıbi adr! 


E FAIT 


laoubi_adel × 


application Eerrainêr 


العيوب : لجعل البرنامج يعمل مجددا يكفي تغيير تاريخ جهاز الحاسب إلى تاريخ 
مستقبلي اکبر من التاريخ الذي تم تو قف اآد اأتطبیق عنكہ 
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*الطريقة الثانية باستعمال قواعد البيانات : 
وهي طريقة فعالة بنظري وهي أكثر فعالية ومصداقية من الطريقة الأولى 


المركبات اللازمة : 

إنشاء قاعدة بيانات في module de base de données‏ 
قاعدة البيانات تكون باسم عوهط 

واسم الحقل الوحيد يكون تحت اسم وع) 

قيمة الحقل تكون من نوع صحيح ١عgع)١1‏ 

مكان الإنشاء يكون في المسار التالىا:ل 

إحضار المركبة 1ء1طه) ممن شريط المركبات ([8وء6٤A۸ccé‏ 


| Mom de champ Type Tallle Index TT 
| Test | E ببيه فاعده البيانال.‎ 


سد رم ین طب 3S Uh‏ 


آلية العمل : 
يتم ٤‏ تصميح النافدة التالية : 


يتم ربط المركبة 1ء[طع) بقاعدة البيانات الموافقة LatabaseN aed: 1 ٣‏ 
على النحو التالي: .۲ 
ثم يتم تحديد اسح الجدول المراد عرضه ٠:‏ 

ثم يتم تحديد اسم الجدول المراد عرضه : | TableName ase‏ | 
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عادل 


بعل ذلك يتم تفعیل قاأعدة البيانات بو اسطة الخاصبة 1 active .true‏ 
- خطوات البرمجة. 
1 في الحدث سه0طء 0٥‏ للنافذة ]٥۲٣1‏ انقر نقرا مزدوجا 
2 حرر الكود التالي : 


begin | 
label1l.caption:=inttoatr [tablel.recCorACOuUNL] F771 
tableEl. Insert; Fff2 
Lableltest.asinteqeEr:=tabþlel.rECoOrFACOUNE? 773 
tablEel.po3zt: Fr d 
IF tablelteszt.a3sinteqer <= then 77E 
bheqJIN 
tablel.alctive:=false;, F7ê 
zahoumeazafgeE |' appeEler a UFAU-S3-UO3-US' I; ET 
forml.LIDSE F3 
end; 
end; 


ملاحظة : شرط توقف التطبيق عندما تكون هناك 20 تسجيله في قاعدة البيانات 
شرح الأوامر : 
1 يقوم بعرض عدد التسجيلات الحالية في قاعدة البيانات في المركبة 11عطه!] 
2 إضافة تسجيله جديدة إلى قاعدة البيانات 
3 يتم إضافة تسجيله جديدة تحت رقم التسجيل الأخيرة + القيمة 1 
4/ حفظ التغييرات على قاعدة البيانات 
5 عملية مراقبة تحقق الشرط -هل قاعدة البيانات علة 20 تسجيله 
6 إيقاف تفعيل قاعدة البيانات 
- في حالة تحقق الشرط أي أن قاعدة البيانات تحتوي على 20 تسجيله 
7 يعرض لك رسالة يجب الاتصال بالمبرمج 
8 غلق التطبيق.... 
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البرنامج في حالة التنفيذ : 


المرة الأولى : 


المرة الثانية 1 


المرة التاسعة عشر ٠:‏ 


المرة العشرون : 


To remove this message, purchase the 
product at www.SolidDocuments.com 


عادل 


4| laoubi adel |0| 


× اتا 


4J laouıbi adel | E 
لاطا‎ 
|_| 
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ألية المراقبة ٠:‏ 
¿ الأمر قاعدة البيانات تكون فارغة ففي كل حالة تنفيذ يتم إضافة تسجيله جديدة 
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+ « 


- لنفرض انك قمت بتصميم برنامج تسيير مخزونان وقمت ببيعه لأحد العملاء وبعد 
مدة شهر وردك اتصال من العميل يفيدك أن البرنامج صار لا يعمل واستنجدك بالحل 
لان البرنامج يحتوى على بيانات مهمه فما العمل ..؟ 

5 طبعا المبرمج متأكد من انه سيرده اتصال 

- يجب على المبرمج التحضير لهذه المرحلة ويكون ذلك بتصميم برنامج آخر يقوم 
بتفعيل البرنامج الاصلي بدون تغيير بيانات العملاء. 

- هناك أكثر من طريقة من اجل جعل البرنامج يعود للعمل مرة أخرى ويكون ذلك ب : 


1 تذكر بنية قاعدة البيانات المسئولة عن عدد مرات التنفيد واعادة تصميمها من جديد 
حسب القاعدة الأصلية ثم إعادة تبديلها بالأصلية في مكان تواجد ملف برنامج التسيير عند 
العميل 

ملاحظة : ماذا لو لم تتذكر البنية والمسار المحدد تحدث لك هنا مشكلة كبيرة قد تعرض 
عمبلك إلى ضياع بياناته الأصلية 

2 تنصيب برنامج sءع‏ ٤01ل de-base de‏ eاduدص‏ في حاسب العميل الذي يعاني من 
المشكلة وتقوم بفتح قاعدة البيانات المسئولة عن عدد مرات التنفيذ وتقوم بعملية الحذف حتى 
تعود حالتها إلى الصفر فتعطي عمرا خديدااللبرنامج.:....حل شبهنموذجئى 

3 تصميم برنامج فرعي يقوم بعملية إرجاع قاعدة البيانات إلى حالة التسجيله =0 

حيث يعمل هذا الأخير بواسطة الرقم التسلسلي الذي تحدده أنت بحي بمجرد توافق الرقم 
التسلسلي يتم إرجاع القيم إلى 0 أو العكس في حالة عدم توافق الرقم التسلسلي 


ملاحظة : حبذا لو تقم بتغيير الرقم السري كل مرة لإعطاء البرنامج فعالية أكثر 


مثال :كود التفعيل هو : laoubi_ade1_0790-88-03-08‏ 
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لمسات برمجية عادل 


المركبات اللازمة للبرنامج : 
1 طبعا قاعدة البيانات الأصلية المسئولة عن عدد مرات التنفيذ 
2 المركبة )×ع).1٤d1ء‏ 
3 زر للمراقبة تحت تسمية عأوع) 
4 المركبة إمص) ملاحظة _(قمت باستعمال المركبة مكان الحلقات التكرارية لان 
المركبة السابقة تعمل نفس عمل الحلقات التكرارية من ناحية المبدأً حيث تقوم بتنفيذ 
الأوامر حسب النبضة كما يمكنك التحكم في سرعة التنفيذ بتغيير قيمة المجال 


) من مفتش الکائنات‎ te۷21 
: إليك الهندسة التالية‎ 


JS laoubi adel E ا× تا‎ 


ق ق و ا ف ف قو ق و و و ف و ف ف ف ف م ف هق ف ف ف ف اف ف ف سف اف لف ف ف ف ف ف ف ف اسف ا ت 

E AO O O TE O E O CT ET TN DE N OE E CE N N CT CR OL O I O O O 

mum mM Mm mE mE mE E mea. a i i a E 7. O: 

MK a hd TS a a a Gn O a O a GE a aD Km am E ma a Ga a gE a aS CECE GOGE a Ta ToT Fg aS. 1S 2 0O DS BDO sS o. e. 
LOST ODODSg Nd DD SS GOO OS aS 


SS DOD oi gS i O: DD eS SS. `1 


di O. DODO ODS. OSO OOD °` Dy o aT 
a O TO TC TgÈgëڇ‎ ` DSO ODS CSSD DD. DOD. ODDS O” O O. 
mum mm Mm Mm mm mM mM Mm mE HE EE. 1 1 1 o oa DBD IN. I... ٠. SD. DD. OTO. OS. SS. 1 i u u 
TOT OS OO O O SÈSO OOS O OOS ES COGDSOSD SOS DS WW. rg 
mu mmm mM MH mm mm uO I Ie i a a a e a A N. DO... WTS. 1. 1 1 ر‎ N a a a a u u u 
um mmm mE E ma me wg o A OTO WD. i a oe O... SS GSE r u u u n n mm mM mm mm mm mE mm mm mm 
u u mw u oe O. o. I .SO  oOoD 11 1 o ggg NT. i i a a u u a a E Em Em hM mm mM Mm mM MH mM Mm mM mM mH mM 
E. OD. .. o.o. S.OOoOS.  .1c1ioioSTS DD a a u a a a n ا ا ا د ا س س س ا س ف س س و س س ي س ف و ي د و ل ر و‎ E 
EET KS. OO O DOD OCOD N o 
SEES GODS SO O. GOO DD Do TST aa o, 


انقر نقرا مزدوجا على المركبة ١٥0))اطا‏ وحرر الكود التالي : 


heJINn 
IF EMItl.tExXt=' laoub1 adel U?3U0-S3-U3-US' then #71 
hegINn 


timeErl.enabled:=LtEUP} F72 
eni; 
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1 مراقبة إدخال كود أو الرقم السري للبرنامج من اجل القيام بعملية التفعيل 
2 في حالة التوافق يتم تفعيل الخاصية 4عاطاهمء للمركبة إعمص1) من اجل بداية 
التحدبث 


ل ا 
- قم بالنقر على المركبة ۲1عص1) وحرر الكود التالي : 


tablel.qdelete; #7] 

tahlel.Next F2 

if tablel.recordcount=l] then #753 

hejin 

timerl.enabled:=falsze 1 #fd 

meE2zzağfEdAlgfl'mi3ze a jour terminê' şît ilformation, [mbyes]l, Ul, F8 
timerl.enabled:=fal3E; 2% 

end; 


توضیح : 

1// عملية حذف التسجيلة الأولى 

2 الانتقال إلى التسجيلة الثانية 

3/ عملبة المراقبة من اجل بقاء E‏ الأقل تسجيله و احدة أي أنه قأعدة البيانات صارت 
تحتوي علی الأكثر ٤‏ تسجبله وأحدة فقط 

4//ايقاف عملية المركبة 1إع]) 

5// اظهار رسالة تو ضیح بين أنه تم تحدیث قأعدة البيانات 

6 إيقاف عملية المركبة 1إعه]) 
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البرنا مج کے حالة اأتنفبذ. 
ا× ادا 


entrer le code [laoubi_adel_0790-88-03-08 
| lezlE 


Information 


1 ) mise a jour kerrmminê 


تصميم فيروس بدلفي | 

تعريف الفيروس: هو عبارة عن مجموعة من الاأوامر مكتوبة بلغة برمجة معينة تعمل على 
تخريب والتحكم في النظام 

يسمح لك دلفي بتطبيق جملة كبيرة من الأوامر تساعدك على التحكم في النظام 

التحكم في الفارة: 

عادة ما يقوم المبرمج بتصميم عدة وسائط تساعد مستخدم الكمبيوتر من التحكم في موارد 

النظام بسهولة تامة .كما توجد نظرة أخرى وهو استعمال عدة أوامر من اجل تخريب عمل 
النظام و تعقبده 


تصميم برنامج يسمح لك بالتحكم في قلب عمل آأزرار الفأرة 

خطة العمل 

ا 

قم بإاضافة المركبتين: button1 butt0o¬2‏ 

قم بتسمية المركبتين على التوالي click droite /click gauche:‏ 
قم بتحرير الأمر التالي بعد النقر المزدوج في المركبة 01)ںuط‏ 
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hejin 
syaLeEmparameEteraInfo0ls3p1 3EtmOUSEbUTTOnNEVAP, U,n1lL, lU) ; 
end; 


قم بتحرير الأمر التالي بعد النقر المزدوج في المركبة 2١u))0ط‏ 

فكرة: أضف المركبة ع 1) وحرر الأمر السابق بعد النقر المزدوج عليها 
قم بتغيير مجال المركبة من 1000 إلى 12 

لاحظ .ثم طور الفكرة 


تنويه : يعد جانب برمجة قواعد البيانات من أهم الجوانب المعلوماتية المتاحة والمعمول بها 
كان في جميع الميادين ... و كما هو معروف سابقا كانت البيانات تدون في سجلات كبيرة 
صتعبه جدا لبدائية الفهر سة وعمليات التحين , ومع تطور التكنولوجيا برزت أنظمة تألية 
البيانات ودراسة الوثائق بطرق علمية مبرمجة في قواعد البيانات .... سنحاول الأن تصميم 
برنامج تسيير مصلحة الموظفين الهدف من البرنامج هو مراقبة مصبلحة الإطعام : 


تصميح قاعدة البيانات ٠‏ 
Base1l(code,nom,prênom,date_n,li1eu_n,classe,profess1on) ;‏ 


شرح البيانات : 

| رقمالغامل‎ code 
| لقبالغامل‎ Nom 
| اسمالغامل‎ مr6ص0ص‎ 


| __ |تاريخالميلاد‎ Daten 
| مكان الميلاد‎ 1u 
يواغ اقم لإ‎ 
الصف‎ pri 
| __ 0ا0اماصورةالعامل‎ 
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لمسات برمجية عادل 


قاعدة البيانات الخاصة بكلمة السر Passe(pass)‏ 


لد ملاحقات 


E E 
ق‎ 


بنية قاعدة البيانات:٠‏ 

سنستعمل بر نامج module de base de données‏ llخاص‏ ب Delphi‏ 
1 لابد من إنشاء وھA11‏ 

laoubi_adel yg Alias لیکن اسم ال‎ 2 

3 حفط قاعدة البيانات في 6 السابقة 

4 اسم قاعدة البيانات هر 1عيوط ا 


خطوات البرمجة : 
1 نفد برliمچ module de base de données‏ 
2 قم بإنشاءووهزإج من خلال النقر على القائمة وازأuام Fichier Edition | Outils‏ 
3 اختر الأمر التالي. cestionnaire d: alias‏ ا 

انقر على الزر 2uعv ۸0u‏ 
5 حرر اسم ال یھAli‏ 


gg 


ULiliEaIrEs ۴ 
Moats dE passe... 


1 عاطم اة‎ Base de donnêes nan ulillsêe. 


lias de la ba3E : lanubi_ adel 


Type de piloke : [STAN DARÛ <| 
Lhemin d'accës : [E:*Pragran Files" ocial f Afficher seulement les alias publics 


f” Afficher seulement les alias du projet 


f Afficher tous les alias 


Moyea 


Retirer 


Enreglstrer 30U13... 
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لمسات برمجية عادل 


سنقوم بتصميہ قاعد البيانات الخاصة ونقوم بحفظها Alias dı‏ التي تحت اسم 
1ع a0ub1_‏ على النحو التالي : 


شكل قاعدة البيانات 1عيیمط ى البرنامج 


Crêation de la table Paradox f : { Sans Litre ] × 
Descriptor dez charmmpz : Proapriêtês de la table : 
Mom de champ Type Taille Index [Contrêles de Yalidilê >| 
1 Lode ۹ ˆ Dii... 
A) Mom بط‎ Fl 
3| Prêénar ب‎ el [` 1. Champ obligatoire 
4 Date f 1 e 
û LieU_HM شر‎ 2 
kb Llass —— 
# Profession ۱ Fale mamir 
û) Phuato ا‎ 
2A AÛ YAEL par defa 


Spêciflez la narnbre de caractères ãڌ‎ stocker dans le fichier . DE [de Û ã i. MOGEE 


24l]. Le reste des donnêes ezl stockê dans le fichier .ME. SSS E 
BH SSISLANGE... 


HEDIENIIE... Enregistrer SOUS... AHrler عا‎ 
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لمسات برمجيه عادل 
شكل قاعدة البيانات pass‏ گ البرنامج 
Crêation de la table Paradox F7 : { Sans Litre ] E4‏ 


Description des charnpz : Proprlêtês de la table : 


Mom de champ Type Taille Index [Contrêles de validitêé <| 
1| Pass ھا‎ | 3 N | 


[` 1. Charmp obligatoire 


A. Yalar rinin : 


اس 


2. Yaleur ma#lmum : 


ê 


4. Yalaur par dêfauıt : 


Double-clquez ou lapez une touche pour placer ou relirer la clê. Les d. Modêle : 
champs Indexês dolvent être les premiers dans la description des champs. 


ET علا‎ 


WM a BHIE EBE 7 1 1 
NEEL Enrelistêrsoul. | 


آلية الحفظ لاحظ الشكل التالي : 


nregistrement de la table sous Kd E4 
Enregistrer darnz : | CÎ YarkDir >| = TE EE 


Horm duy Fehler : [base 
Type : [Paradox 7. db[ > ûnnuıler 


EEE E TRAIL: * iE 
ا‎ 7 Rw ÃlL: 
:22ع کا‎ 

= DBDEMUS: 
کک‎ DefaultD Û: 


i= laoubi_adel: 


Dptiaonz : 
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لمسات برمجيه س عادل 


E 
افتح مشروعا جديدا في دلفي‎ 1 
في النافذة الثانية قم بإاضافة المركبات التالية :2ع1طه]. 1ء1طه]من خلال شريط‎ 3 
Accés>BD المرکباٽت‎ 
dataesource1.dataesoUurce2 قم بإضافة الئلمرکبتين‎ 4 
قم بربط المركبة 1ء][طه) بال ءه1اA . 1عله_1طuمه] بواسطة الخاصية‎ 5 
Data base names 
قم باختيار اسم قاعدة البيانات من خلال الخاصية مصعم عاطه)‎ 6 
Active.)٣uع قم بتفعيل المركبة 1ء[طه] من خلال الخاصية‎ 7 
بك القيام بعملية الربط المنطقية لقواعد البيانات نأتي إلى عملية ربط المركبة‎ 
)2b1ع1. بالمز كب السابقة‎ ata source1 
tجط1ع2‎ ; لة)هء0uإع2/ةبكرملا كرر نفس الخطوات السابفة مع‎ - 
باختيار قاعدة البيانات وئوم‎ 
: لمزيد من التوضيح لاحظ الشكل التالي‎ 


O RUEC OO OR ODOT CD RT DatabaseName 


4ا 


E NEC TENE EI NE O NEE E CN I CO O oT CASE 


I dBASE Files 
N DEDEMOS 
I DefautDD 


E E O SD I O TS N OE CO E E E “zeÎ Fila 


| 


SS IBLocal 


SS MS Access Database 
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لمسات برمجية عادل 


Table arê 


9 قم بإضافة المركبة 1ع[هإ٤رمء‏ ععهم من شريط المركبات 32١1س‏ 
لاحظ الشكل التالى : عد إضافة المركبة 


SF Formz2 |٥ ا‎ 


EES CS MNE mM OG IS OE EES GE E CO SE EES CS SS O O GG. 
ma mm Hmmm mmm mm mmm mm Bm Em mH mn a E n a a o Eee `. SS `. `< oi. 
OTT DOO O OOOO gD oS OSS SOS OSS © 
OOO OO o. “WOOO ODS TSO SS GOODS CES STS OO OOS £ 
O gS DOGO gS DOOD GDS GODT. gî SSD OOS O ww 
DOOD. GOODS TOT ODO RMN DDS CSS ODO TSO ga OSSD O. wg wT 
ODS). CDOOSDSD ODS ODS SO SD ODS EST OST OSO OO oOo a 
eS GST DST OSSD SSD OD VY DD. O A 
O O O OO O ODO OTO ang. CE DOSTO O. OOS DSTO ODDS OO aw 
O O O OO O O O OOOO OTS ٨٠٨ کک‎ Sg ODS OSD O TOD DOD STS SO DOOD 
umm mm mm mm mE mM mM mm n o o oi o i o o ED: NET. ۹ SS. SS... `: O "DT OD (O... cO o o a a o a a a a a ma mm mM mm 
O OOD OO O OS DOD OOOO ODT DèëÈڇ‎ O. OO. O DGDGDG Dg O ID e a a Sa 
DTD TOO OOOO Sg OèëÈڇ‎ WS GCOS" aS). OSD ODS OOD wo wm a a 
TOTO gS. °` aD GO COO. GO DODODOSO0 OD : gg a 
ODS. OOS CGS OOS O. DOOD Wd O o 
CAE ECEM O ECS 0 O N EET ae O CC E E E N CEE E E E E E EI E CE E E CCC IC E ECO 
MS. ODS TSS SD TST SiS. BOSS: TG SG SG ad a CG E TG TT 1 2 E KE E GU a I E TK 1 1 2 2 2 2 a a 2 E 1 1 1 2 CG E E 1 a CE GG 1 TD 1 CC CG a E 0 R2 CG GG 2 TG 21 1 2 E E dM 2 
IS DDS OOS. O). WOOD DOD o N 
ED OS. ODDS SS DID we TOG Oa 
ET Oh OO oa DE N CL O la E E O ۸ O CS CT CC CS CS SC O CC E O O E OD 
SS OG OL OOS CAG Coe OOO OCDE OE O f E OC N CIOS I MC O SaaS OI N SS SM O NC DOG GOCE OIA CE OC CO IS OO O OC OGTR SD md LS 


10 سنقوم بإضافة عدة صفحات على المركبة 1ع[cont]0 page‏ 
- قم بالنقر على الزر الاأيمن للفارة على المركبة السابقة ثم انقر 
على الخيار page‏ eاام0uvم‏ ستلاحظ ظهور صفحة جديدة على المركبة 


لاحظ الشكل التالي : 


MHouvelle page 


Page suivante 
Page prêcêdente 


٣ Spprimer | BaAE 


Alianer sur la grille 
ب‎ Mettre en avant-plan 
f Metre en arriêre-planı 


HEYE û Eb 


N ODE ry Alianêr... O 


Sm SSD SG DESE COS & T1: ^۳ -اا:-‎ n mm mmm 
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O TE 
sS yS 
: TabSheeltl | TabSheet2 | TabSheet? TabSheet4 | - 


Tab5heektt: TTabsheet | SEY 


Page-d’ accueıl /Mısa ajJour / 1Imprımer/paramêtres 
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لمسات برمجية عادل 
Sion O Fm la‏ 
E ooo oe e e e ooo ooo‏ ص a oo‏ 
E TT TS‏ 
ESE d'accueil | Mise a jour | imprirner | pararnètres | oe‏ 


IR ar aR ODS ESO RR NT O oC BEE GSD MM GM EI RD MRE SS MM MRS RM aN SG CIRE SG GR MSR RES CEC MR QR O GS SEG CRD GG SE BS RR CR GS ORM O O OSG As a rS 


مركبة ۲141 طمن شريط المركبات لط ع[6إ)١c0‏ 
12 قم بتغيير الخاصية 1ءء 4ج لنفس المركبة وربطها ب وأاهل 
source]‏ 


- تلاحظ بروز حقول قاعدة البيانات 1عوهط لكن تلاحظ الحقل photo‏ لم يظهر 
× آ۳ Forma Î‏ 


5 


Page d'accueil Mize a [our | Imprimer | par amêètres | 


IEE IE ESI ET IRO ES CET 
1 


[araphic] 
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لمسات برمجية عادل 
1 انقر نقرا مزدوجا على المركبة 1ع[طع) 
2 فتلاحظ ظهور قائمة من خلالها قم بالنقر على الزر الأيمن للفارة واختر الأمر 
Ajouter touts les champs‏ 
3 تلاحظ ظهور جميع الحقول 
4 قم بسحب الحقل 0ا0طم على |Ûئحjı mise ajour‏ 
لاحظ الأشكال التالية : 


FormzZ.Table1 2 


E E Formz2.Tablel #[ 
ٍ | = 3 | Formz2.Tablel E 


IEEE 


r. 


ûjoıJter des champs... r+ 
MoYeau charip... _krl+I 
ûAjoııkter kos les charnps w_trl+F 


OUDEF IF 


ccc errs. merr rrr aT rm” o. coe. BE wa MSD mn ager” aaa rrr rr 
- . = . . . . . . . . . . . . . . . . . . . . . . . . . . OD OTR E DN ORS ITO ONS DEEN E EE mM O CEO am CEO RT aC om FEO UE CCl OE OLK RT TC ESTAS CE DR CE ON E DET ES Co PANS DE CR ES mE Go CO Cm OE GCM CORT 


SOS DS O DSSS SST I 


dS a n n n I nee nn an i a HE 
SÈ 1SŞ Sg sS Ge STS Sg SG {Gg Gg Ag Gg r. TSG GCG RS Ea Ra Tg O KEŞ AG RM mR E E DE RR mE aR GG a aE aS aS aR KE EO GK RT AES um BR CG Eg EM E a a MD KEG aR a TE a amma aa aa a mM 
Sg GS RR Gan GOG ED DMD CG OEMS SEG SG RSD EGG ESS OO GCOS KOU mm OO REK mM AD Gg UC BUG GOG AD BOG Gg GOG ESS Eg CEG aU GG GOG Oa GG BGG a mg Eg Om Gg EG AOD BOGOR Gg CGD EC mm GG CES o 


Page d'accueil Mize a [our | imprimer | paramêètres | 
_ 


_ 
TE wm ma 
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لمسات برمجية عادل 


قم باضافۂ 6 مرکبات من ہہ٥))ںuط‏ 
قم 1 ب | ك التالي : 


اطا اااااااخھ ıe‏ 


Page d'accueil Mise a [our | imprimer | par amètres | e 
mM ma mm mw 


_ 
|e معنا nمصددط| ___ _ صصخم مسا|‎ E 
٣ 


4 _*| 
FIOLIYEALI modifier Enregistrer 2annuler sHpprimEr Photo ODE 


actuallser BE. 


1ء01 إضافة تسجيله جديدة ; Table1.insert‏ 
1]1€۳1دص تغییر محتو تسجڊ Table1.edit;‏ 
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نفذ البرنامج بالضغط على الزر ۴9 
- قم بإضافة البيانات حسب الجدول التالي : 


Ef Table : basel.,db 


Cole Late fl MR MM Pref WEEE | LIEU f آ‎ Professor 


Û MAINS Laub ae To Informatique an el hadê! controler 
4 AMOS hammadl ll t8 bDIDotIGUE Êjald PIE 
3 MAMAN small ahmed ngenleur Informally magte INYENIEU 
4 UMMAH bougtaldg SEI rmgstete Informatiu EM 1 

û MANA Im rmoharned [o Informatique DUlEd rail controler 


E E AEE 
هناك عدة دوالرتستعمل في البحث عن البيانات سنحاول تقديم دالتين أو ثلاث للشرح فقط‎ 
:find) البحث بالدالة رع‎ 
٠ خطو ات العمل‎ 
احضر المركبة )×ع).1)1لء‎ 1 
rعchعrcعط٤ احضر المرکبة ۸٥))ںط قم بتغییر دلالتھا إلى‎ 2 
طuا)0ر قم بتحرير الأمر التالي في المركبة‎ 3 


Fee 1TH 

iF HYE tapble1îl . Fini EHey (| [ea itil text] jJ} Chen س ص‎ 1 
showme ss sage [ " dAonmnnmnêes non KFC OoOUTEĞةS‎ 1"7} F; اف ی نے‎ 
rd 7 


شرح : 
[/ الحت عن السانات 
2 إظهار رسالة ...تفيد بعدم بوجود البيانات 
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لمسات برمجيه عادل 
نفذ البرنامج : 
1 قم بالبحٿث عن القيم 125 
3 قم بالبحت عن القيمة 1 
AF Form2 . EFE IBRE‏ 


Page d'accueil Mize a jour | iInprirnêër | pararmêltres | 


Îlaoubi 
hamrmadi 
amatki 
bougrara 
djirmi 


MOLE ALA | modifier Enregistrer | annuler 3 4pprimer | Photo 
E ac2ktuıaliser | 


recherche 


Page d'accueil Mise a [our | imprimer | paramêtrez | 


[Case nen [rem Daen [leur 


lan4bi ل 0720341 اعد‎ ain el hadjzl| 
harmmadi larbi 120371983  be|ala 

small ahmed TU AIFF maga 
bougrara szeddiIk TAI maddid 

djirmı mohamed 100271982  ouledcz madi 


HOLIYEALI modifier | enreqiztrer annuler s1pprirmer Photo 


aclualser | 


2 
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لمسات برمجية عادل 


٠‏ سنحاول الآن إضافة خاصية أخرى للبرنامج ألا وهي الفهرسة 


من أجل تحقيق ذلك يجب عليك إضافة فهارس ثانوية ولقد ان ذكرت الية تفعيل ذلك 
سأحاول توضيح ذلك بصورة سريعة 
اثناء تصميم قاعدة البيانات بواسطة بر نامج module de base de données‏ 
اليك المثال التالي وهو اقتباس من كتابي السابق في دلفي 
إنشاء فهارس فرعية لتسهيل عملية البحث ٠‏ 
آلية الإنشاء 
بعد أن تتم عملية تصميم قاعدة البيانات 
aم‏ تح llقlئnة proprieties de table‏ 
٠‏ قم باختیار الخیار الثالث منھا وهو index secondaires‏ 
ه قم بالنقر على الزر إنمنéfلل‏ 
ه قم بتحديد الحقل المراد إنشاء فهرس فرعي له وليكن على سبيل المتال الحقل 
fon‏ 
انقر علی:الزر )ن 
ه فتظهر لك علبة حوار تطالبك بإدخال اسع الفهرس وليكن إ0د× 
ه انقر فوق الزر جه 
لابد أن يكون اسم الفهرس الفرعي يختلف عن اسم الحقل كما قمنا بذلك سابقا 
باعطاء ×٥0‏ بدل ص۸0 


KEF IICICGEN CH Lama Ile Ser GOH aI E = || 


LCFiauiiplltz _ LC Fiat Ir leme _ 


L132 AE HAS SAF ZE 
IrmForrn aE 


HoAdifier Vor Are : - r | "| 


I O [EE E FA ml "r ır I 
I U Zr roils s5n E 


LI priors iz Nias 


ے ا | کے eT =r‏ 


Enregistrer ent de Finder = | 


PJom Aindez : 


[xnorrl 
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لمسات برمجية عادل 


Restrurtur ation de la table Paraduk 7: Hasel.db × 
Descıpta” dez champs : Fraprlêz de la lale 
5 om de champ 1 ype Tall e E Canis de walt | 


2 4 ETT 

3 Frenom ۵ لله‎ |” fê rêl êrerlielê 

4A Cate de nSISEaNSE 1 lot de passe ۳ 
A lmfortali0” 4 a7 A Yalu mi : 


3 Yalu ma MUN 


Û Yalu par êfa ; 


أعط الأسماء التالية للفهارس الفرعية على التوالي : 
الاسم × / اللقب م× / تاريخ الميلاد .ول× 


- “بعد اضافة الفهارس الفرعية ننتقل. إلى مرحلة التصميمي 
1 في التبويب ١ع‏ صنامصإ أضق المركبة لوطل 
2 تم قم بإاضافة 4 مرکبات من نو ۶ ١ R416 Bu ٤)٥۸‏ من شریط المرکبات 
standard‏ 
3 أعط التعميات الالة حسب الجدرل الال : 


1 lIndexparcode RadioButton 1 


| Indexparnom__ RadioButton2 
| Index par prénom RadioButton3 
1 l[ndex par date de naissance | RadioButton4 


ملاحظة : من اجل الاطلاع على قيم الفهارس الفرعية اثبع الخطوات التالية : 
1 حدد المركبة 1ع[ام1 
2 من خلال مفتش الكائنات حدد الخاصية Index fieldnames‏ 
3 افتح القائمة تلاحظ ظهور كل الفهارس الأساسية بدلالة الفهارس الفرعية 
4 تلاحظ عدم تتطابق الأسماء لان ها قيم الحقول التي تتخذ قيم الفهارس الفرعية 


Ilnde#F Iles 
Inde arme 
MasterF lelAs 
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لمسات برمجية عادل 


اليك الشكل النهائي بعد الخطوات السابقة 


laoubI اعد‎ UFU31983 an el hadjel 


harmrnadli larbi TA U3983 bêja کے‎ 


armali ahmed RD EAE ERE 


bougqrara اع‎ All 9FE maddid 


dimi 3 __ mohamed آ2‎ „(10/02219382 ouledc madi 


f” inde# par code f” inde» par nam f” mde# par prênamn f index par dale de naissance 


قم بتحرير الاكواد التالية على التوالي بدءا من المركبة الأولى : 


TaۓBLleE1l‎ . InidegtF Ie 1 AMaqgesg:=1 7cCo e "° 7 
Tid 7 
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لمسات برمجية عادل 


begin 
table1. IndexFieldNames :='pçrênom'" ; 
end; 


begin 
tEable1l. IndezxFieldHNamezs:='nom'" ; 
end 2 


begin 
tablel . IndexFieldNames:=' date n"; 
end ; 


AF Fer rr - e | | س23 | ا‎ 


hadj=l‏ اد ع O72032/1 A2‏ | اتلد ا FT‏ ا 
harnrnadi larbi 12031383 | beiaia 0 . FR FÎ BB‏ 2| 
arma 2ahrnearl TIAA  magra =‏ 6 
bougraraã seddik. li ` 1AM maddil‏ 
mahamed _  „ 110+03/13982 | oulede madi 8‏ ا diirni‏ | 


fF” rde pans rı 


Ff” rile pas pêr ıı f” rile paı Jale Je rıalszar EE 


ا ت 


Fage d'accueil |] Mise a jour imprimer | pararmêtres | 


E E LT LED 


۹ mT TA TTI TAFR  marfrfii 

dımı mohamed THIF ouleic madı 
harmrnadi larbi 12” 031333  bعإدأد‎ 
laauıbi اعد‎ UFO" TID mi = na اع‎ 
erna ahr nd 1U TATIAFF  maar3a 


` idem par prêımoarn f” ides par dats de naissance 
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عادل 


Page J'accuell | Mise a jour MPprimiEr | paramêëlrez | 


_ |e | | |e 


12111FE 


A ERED 
IIE EEE 
IEEE 
IEEE 


f Inde» paãf prênorîî 


O720321 3 
REE 
T2983 
MERE 
EIEN 


seddik 
ahmed 
mohamed 
adea| 

larbi 


f mde# par nam 


افا 
ahmed‏ 
larbı‏ 


moharmed 


szeddık. 


f” index par Horn 


bougrara 
armatki 
jiri 
laoubi 
harrrmadi 


f inde# par code 


or 
smal 
hamrmnadı 
djirmi 
bougrara 


î” inde» par code 
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ملاحظة :تلاحظ ان المؤشر يبقى دائما في التسجيلة 1 

لأنها أخر قيمة تم البحث عنها 

ننتقل الأن إلى التبويب ءإعاعصإaإaم‏ 

سنحاول إضافة إمكانية تغيير كلمة مرور البرنامج 

قم باحضار مركبة من نوع ل×0طم ۲0ع 

قم بإضافة مركبة من نوع {×ع) .)زلم ومركبة رم))uط‏ ومركبة من نوع [عطه] 
غير دل enterer votre mote de passe J|! I[abe1]1‏ 

أعط خاصية إخفاء كلمة السر بالرمز * من خلال ائخاصية passwordchar‏ 
غیر دلالة المرکبة ہہااںط إ‌ڼئی tester‏ 

قم بإحضار مرکبة أخری من نو ع ×0 طامںu٥اع‏ 

أعطها خاصية عدم الظهور أثناء التنفيذ من خلال الخاصية 3.عء[هf=:ع[ط1ئ¡v‏ 
سنقوم الأن بتفعيل حقول المركبة 2ءع1[طه] الخاصة بمراقبة كلمة المرور 

انقر مرة بالزرالأيمن للفارة على المركبة السابقة 

ajouter touts 1es champs اختر الخيار‎ 

فيظهر لك الحقل الوحيد وئم 

قم بإضافة الحقل وهم على المركبة 560×2مu٠۲ءع ‏ بواسطة عملية السقب 
تلاحظ ظهور الحقل 1٤1لعطل‏ ويهوم مع الدلالة الخاصة به 

enterer nouvelle mote de passe ”l| pass قم بتغییر الدلال‎ 

قم بإاضافة مر کبتین من نوع ۸٥)اںط‏ غیر دلالتیھما إلى ع modifier ene gist)‏ على 


التوالي 
لاحظ الشكل التالي : 
ات کک | کے 1 Forma‏ 3 


_ 
Faqe dJ'accueıll | Mise a [ouır | inpriner  Pparamêëtrez | 


teste االا|ا|‎ 


rnoadifier Enregistrer 


J J a. : 
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لمسات برمجية عادل 


ملاحظة ٠‏ تلاحظ أن الحقل 1ع ط]الخاص بقاعدة البيانات كلمة المرور فار ع وعدم 
احتوائه على أي قیم 


معلوم أن المركبة 0×2طمںهإع لا تظهر أثناء التنفيذ لأننا سبق وان أعطيناها خاصة 
الظهور من اجل عدم ظهور إمكانية تغيير كلمة المرور إلا بعد توافق كلمة المرور 
لاحظ الشكل التالى : 


AF Form2 e کک کا | )| . َا‎ 


taste ) 1 


الية مراقبة كلمة المرور : يقوم المستعمل بحجز كلمة المرور السابقة في حالة التوافق تظهر 
المركبة 0×2طامuهإع‏ من اجل القيام بعملية التغيير و إلا ظهور رسالة تحذير تبين عدم 
تتطابق كلمة المرور 

ملاحظة كلمة المرور السابقة هي عبارة عن فراع 

خطوات البرمجة : 

انقر على المركبة ذات الدلالة إع)وءم)وحرر الكود التالي 


beq 1n 

if edit2Z.Text =dbedit1.Text then #71 

GroupBox2 .visible:=true و ی‎ 

Else ر‎ 

showmessage (" Yotre mote de passe est invalide'}; 
end; 
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لمسات برمجیيه س عادل 
ا 

1/ مراقبة توافق المركبتين {×ع).edit1‏ مع dbedit1.tex‏ 

2 في حالة التوافق تظهر لك المركبة 0×2طامںuهإع‏ من اجل تغيير كلمة المرور 

3 في حالة عدم توافق محتوى المركبتين {×ع.i1لع‏ و ×ع11.1ل عطاك تظهر لك رسالة 
توضح كلمة المرور خاطئة 


الأن ننتقل إلى المركبة 0×2طمuهإعوبرمجة‏ وسائطها 
انقر على المركبة ذات الدلالة إعا؟1Êالمص‏ وحرر الكود التالي : 


begin 
table2.edit: 
end; 
: انقر على المركبة ذات الدلالة enreg1strerوحرر الكود اللي‎ 
begin 


table2.Poslr dr 
IroupHOEZ. VISIblE>Talsery7 7d2 


lend: 


توضیح: 


2//اخفاء امكانية التغيير بعد الحفظ 
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لمسات برمجيه عادل 
نفذ البر نامج 
وادخل القيمة 120 في حيز المراقبة 

AF Forma I کے اکا | سے‎ 


Pag Marr ueil | Mizz ۍ”‎ in ır | inqrimnar paramêktrezs | 


1 keske | teste ي‎ 


qlestion 


تلاحظ ظهور رسالة تنبيه بعدم توافق كلمة المرور 

اعد تنفيذ البرنامج ولا تقوم بإضافة أي/قيم 

تلاحظ ظهور إمكانية تغيير كلمة المرور 

غير كلمة المرور من فراغ إلى 07031983 

قم بعملية الحفظ واعد عملية المراقبة ستلاحظ تغيير كلمة المرور السابقة ولا يمكنك تفعيل 
عملية التغيير إلا بالكلمة الجديدة إلا وهى 07031983 

لاحظ الشكل التالي : 


FPFagye U DF"a- uel | ise a [ul | TT TST pParamêğtrzzs | 


ESI | : 
ڪڪ‎ O EHIETEEE 


=oreEgAistrer 
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إمكانية مناداة برامج قاعدية في sوس0لd,‏ 1س 

مناداة برنامج وورد 

yy 

RN a 


قم بإاضافة مرکبتین من نوع ہ٥)اںuط‏ 
غير دلالة المركبتين السابقتين إلى 1عE×c W0۲4‏ على التوالي 


winexec ( IC: \ Program Files\Microsoft OEEice\OFEIcET2(winword. exe '„aw_ show) 
end; 


حيٿ :12 C:\Program Files\Microsoft Office\Office‏ مسار تواجد البرنامج 
Win word .exe‏ اسم البر نامج 


اعد تحرير نفس الأمر في المركبة الثانية لكن؛مع تغيير اسم الامج فقط لان برامج 
مجمو عة ععڳڳم لها نفس المسار 


begin 


winexec ("C:\Program Files\Microsoft Office\Office12\excel]. exe', sw show) 
end; 
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عادل 


ارجوا أن تكون لغة كتابتي مفهومة للجميع ... وآأسف في حالة وجود أخطاء لغوية ونحوية 
کے ا ا 


مع تخياتى الخالصة ترقبواالبقية عن قريب إن شاء الله تعالى... 
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